home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol033 / random10.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  768 b   |  23 lines
  1. 10 REM  random number program - Deane Wang Cybersoft Group - 7 May 1982
  2. 20 '
  3. 30 CLEAR: CLS: DIM NUM%(301)
  4. 40 INPUT "Enter a seed (integer)";X: PRINT RND(-X)
  5. 50 I=0: INPUT "enter highest value needed (integer, max. 300)";R%
  6. 60 INPUT "Do you want a non-repeating series (y or n)";Q$
  7. 70 N%=RND(1)*(R%+1)
  8. 80 IF N%>R% THEN GOTO 70
  9. 90 IF Q$="n" THEN PRINT N%,: GOTO 70
  10. 100 IF Q$<>"y" THEN GOTO 50
  11. 110 FOR IT=0 TO I
  12. 120 IF NUM%(IT)=N% THEN GOTO 70
  13. 130 NEXT IT
  14. 140 NUM%(I)=N%
  15. 150 I=I+1
  16. 160 LPRINT N%;"    ";: IF I/10 = FIX(I/10) THEN LPRINT
  17. 170 PRINT N%;"   ";: IF I/10 = FIX(I/10) THEN PRINT
  18. 180 IF I=R% THEN 190 ELSE GOTO 70
  19. 190 LPRINT: END
  20. IX(I/10) THEN LPRINT
  21. 170 PRINT N%;"   ";: IF I/10 = FIX(I/10) THEN PRINT
  22. 180 IF I=R% THEN 190 ELSE GOTO 70
  23. 190